Point Programming 1/PPROG1.ISO/pascal/swag/crt.swg/0005_CPU Delay.pas

Pascal/Delphi Source File | 1993-05-28 | 304 b | 15 lines

{
> does anyone have an accurate BAsm Delay routine that is
> compatible With the one in the Crt Unit? please post it...
}

Procedure Delay(ms : Word); Assembler;
Asm {machine independent Delay Function}
  mov ax, 1000;
  mul ms;
  mov cx, dx;
  mov dx, ax;
  mov ah, $86;
  int $15;
end;